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Adicione rotinas especiais ao seu 
programa CAD (Desenho Assistido por 
Computador) e veja como tirar o melhor 
proveito da sofisticação que elas 
proporcionam à listagem original. 


Com o programa CAD (Desenho As- 
sistido por Computador), apresentado 
na página 414, vimos colocar os recur- 
sos gráficos do computador sob controle 
direto do teclado, o que nos permitiu fa- 
zer alguns desenhos bem sofisticados. Se 
quisermos, porém, explorar todo o po- 
tencial do programa — especialmente a 
possibilidade de colorir — deveremos 
examinar várias outras funções. O me- 


nu já nos deu uma idéia das diferentes 
opções, mas ainda não tivemos acesso 
a elas. 

Carregue o programa anterior e adi- 
cione as linhas fornecidas neste artigo. 
Cada rotina é seguida de notas e suges- 
tões de como tirar o melhor proveito das 
novas possibilidades do seu programa, 


4000 
4010 
4020 
4030 
4040 
4050 
ND USR 65380: 
4060 IF INKEYS<>CHRS 
OTO 4040 

4070 FOR n=1 TO 


REM 
LET 


retangulo e caixa 
caixa=0: GOTO 4030 
LET caixas] 
FOR n=1 TO 50: 
GOSUB B000 

IF INKEYS=CHAS 13 THEN 
GOTO 1000 

32 THEN G 


NEXT n 


RA 


50: NEXT n 


























Í 
“a 
E 





NOVAS POSSIBILIDADES 
DO PROGRAMA CAD 
OPÇÕES SOFISTICADAS 
CORRIGIR E CÓPIAR 
CORES NO SPECTRUM 


4080 LET xx=0: LET vy=0D: LET hx 
=x: LET hy=y 

4090 GOSUB B000: FOR n=1 TO 2: 
PLOT hx,hy 

4100 DRAW OVER 1;0,yvy: DBAW O 

VER l;xx,0: DRAW OVER 1;0,-vyv: 
DRAW OVER 1;-xx,0: NEXT n 

4110 IF INKEYS<>CHAS 32 THEN G 

OTO 4090 

4120 PLOT hx,hy: DRAW O,vy: DRA 

W xx,0: DRAW O,-vy: DBAW -xx,0 

4130 IF caixa=0 THEN GOTO 4030 

q4]35 JF xx=0 THEN GOTO 4040 

4140 FOR n=hx TO hx+xx STEP SGN 
XX 

4150 PLOT n,hy: DRAW O,yy: NEXT 
n 

4160 GOTO 4040 

5000 REM circulo 

5010 FOR n=1 TO 50: NEXT n 

95020 GOSURB 8000 

9030 IF INKEYS=CHARS 13 THEN RA 


42] 


ND USR 65380: GOTO 1000 
5040 IF INKEYS<>2CHAS 32 THEN G 
OTO 5020 


e CARREGAR (na fita, somente). Ao 
selecionar um dos dois, um nome será 
solicitado. Você pode CARREGAR sem 


er ça iria sand bei gi nã especificar um nome de arquivo, sim- 
ini Ag a plesmente pressionando <ENTER>, 
5070 GOSUB 8000: CIRCLE OVER 1 mas, para GRAVAR, o nome € sempre 
shx,hy,ABS xx: CIRCLE OVER 1;h necessário, 


x.hy,ABS xx 
AOBO IF INKEYS<>CHARS 3472 THEN 6 


OTTO 5070 

5090 CTRCIF hx,hy,ABS xx: GOTO 4000 SCREEN 1,ST:GOSUB 1500 
5000 4010 IF EF=1] GOSUB 500:RETURN 
5500 REM apagar 4020 IF PEEK(345)<>PC THEN 4000 
5510 GOSUB 8000 4030 X5=X:Y5=Y 

5520 IF POINT (x,y)=1 THEN PLO 4040 GOSUB 1500:GOSUB 500 

T OVER L;x,y 4060 IF EF=1 THEN RETURN 

5530 TE INKEYS=CHAS 13 THEN RA 4070 IF ABS((XS-X)*(75-Y))>2300 


ND USR 65380: GOTO 1000 
55840 GOTO 5510 


6000 REM copiar 


O THEN 4040 
4080 LINE(X,Y)-(XS,YS), PSET,B 
4090 IF PEEK(345)<>PC THEN 4040 


6010 COPY : GOTO 1000 | 4100 PMODE MD,5:GET(X,Y)-(X5,Y5 
7000 INPUT "INTRODUZA O NOME ”"; ).CP,G: PMODE MD,1 
LINE n$: IF LEN n5$>10 THEN GO 4110 XS=XS-%X:.YS=YS-Y 
To 7000 | 4120 GOSUB 1500:GOSUB 500 
7010 LOAD nSCODE 50000: RAND US 4130 TE EF=1] THEN RETURN 
R 65368: GOTO 1000 4140 IF(X+XS)<0 OR (X+X5)>255 O 


7500 INPUT "INTRODUZA O NOME *; 
LINE n$: TF n$="" OR LEN n$>10 
THEN GOTO 7500 


7510 SAVE nS$SCREENS GOTO 1000 


Selecione a opção RETANGULO e 
mova o cursor até onde deseja colocar 
um canto da figura que pretende dese- 


R(Y+75)<O OR (Y+78)>191 THEN 4] 
20 

4150 LINE(X,Y)-(X+XS, Y+Y5S), PSET 
1B 

4160 IF PEEK(345)<>PC THEN 4120 
4170 GOSUB 500:PUT(X,Y)-(X+XS,Y 
+75), CP, PSET:GOSUB 510 

4180 GOTO 4120 


5000 CLS: PRINT” SELECIONE A COR 
nhar; em seguida, pressione <SPA- pa BORDA (0-8) " 
CE>. Desloque o cursor para o canto 5010 AS=INKEYS:IF AS<"D" OR AS> 
diagonalmente oposto. Enquanto execu- "B” THEN 5010 


ta o movimento, um retângulo ficará 
piscando, para lhe dar a idéia exata do 
que está desenhando. Você pode, assim, 
escolher o tamanho e a forma ideal, sim- 
plesmente passeando com o cursor. 
Quando tudo estiver do se 

pressione <! SPAC CE>, pé 
senho., DA re een 











5020 BC=VAL (AS) :SCREEN 1L,ST 
5030 GOSUB 1500:GOSUB 500 

5040 IF EF=] THEN RETURN 

5050 IF PEEK(345)<>PC THEN 5030 
5060 PAINT(X,Y),CL,BC:GOSUB 510 
:GOTO 5030 

6000 CLS: PRINT” SALVAR OU CARRE 
GAR DO GRAVADOR (S/C) 7?" 

6010 AS=INKEYS:IF AS<>"S” AND A 
5<>"€C” THEN 6010 


LO, QUE ESSO 20 IF A$="S” THEN 6100 
a 6030 PRINT” CONFIRMA QUE QUER C 





Ane a OUTRO DESENHO (S/N 
j ; e 
6040 AS=INKEYS:IF AS<D"N” AND A 









sentadas. T 
grama retornará men 
Para faser o correções  indáicas, use 
as opções APAGAR ou 1 OOPS. Peque- 
nos detalhes podem ser corrigidos com 
a primeira opção. Quando terminar, te- 
cle < ENTER > para retornar ao menu. 
Para mudanças radicais, utilize 
OOPS, que apagará tudo o que foi fei- 
to depois de sua última visita ao menu. 
Os dois itens restantes são GRAVAR 








-8Xs 
5<) 









q THEN 6040 
Sao IF AS="N” THEN RETURN 


o MOTORON: PRINT:PRINT ” POSI 


E E 


070 

6080 MOTOROFF: PRINT:PRINT:INPUT 
"INTRODUZA O NOME DO ARQUIVO ”; 
AS 

6090 SCREEN 1,ST:CLOADM AS:GOSU 
B 510:RETURN 

6100 PRINT: INPUT"NOME DO ARQUIV 
o C;AS 

6110 MOTORON: PRINT:PRINT” POSIC 
IONE O TAPE,APERTE' RECORD' E EN 
TAO PRESSIONE <ENTER>” 

6120 IF INKEYSS>CHRS (13) THEN 6 
120 







| | 


UB 500:CSAVEM AS,1536,7 
- RETURN 


6130 04 
679,15 


A opção RETANGULO permite que 
você desenhe retângulos de várias cores, 
em qualquer lugag da tela. Selecione a 
opção e mova o cikgsor até o ponto da 
tela onde você quer canto da figu- 
ra. Pressione a barra We espaço para 
identificar o ponto. Mo cursor pa- 
ra o canto oposto. Da meshãa maneira 
que com DESENHO e LI] 










ção pressionando <ENTER>. 
do estiver satisfeito com o dese 
pressione novamente a barra de espaço” 

CAIXA funciona como a opção an-' 
terior, mas a figura é preenchida com a 
cor em uso. 

CIRCULO e DISCO são como RE- 
TANGULO e CAIXA. O primeiro pon- 
to escolhido fica na periferia da forma. 
Mova o cursor, até chegar ao ponto de- 
sejado, que é o centro. 

ELIPSE difere um pouco de CIRCU- 
LO. O primeiro ponto escolhido é o cen- 
tro. Ao mover O cursor em qualquer di- 
reção, verá apenas uma linha. Mas, ao 
movê-lo na horizontal e depois na ver- 
tical, por exemplo, uma elipse começa- 
rá a crescer. Ajuste-a até obter o que de- 
seja e pressione a barra de espaço. 

A opção COPIAR permite que você 
duplique uma imagem já desenhada na 
tela em outra parte dela, Para usá-la, 
posicione o cursor em um canto da área 
a ser copiada e pressione a barra de es- 
paço. Ao mover O cursor em direção ao 
canto oposto, verá um retângulo que de- 
marca a região onde o desenho será du- 
plicado. Determine a área, quando es- 
tiver satisfeito com o seu tamanho e for- 
ma, pressionando novamente a barra de 
espaço. Mova essa área até o ponto de- 
sejado, usando as setas. Pressione a bar- 
ra de espaço para efetuar a cópia, apa- 
gando o que havia naquela área. Até 
metade da tela pode ser copiada, sem 
problemas. 

A opção PREENCHER funciona co- 
mo o comando PAINT em BASIC. Ao 
selecioná-la, você deve informar a cor 
dos limites onde o PAINT deve parar. 
Mova, então, o cursor até a área a ser 
preenchida e pressione a barra de espa- 
ço. Escolha a cor pelas teclas O a 8. 

Para corrigir possíveis erros, selecio- 
ne a opção ERRO, que apaga tudo o que 
foi feito desde sua última visita ao me- 
nu. Pode-se, também, corrigir detalhes, 
selecionando a cor de fundo e apagando 
linhas ou pontos. Areas maiores devem 
ser corrigidas com CAIXA ou DISCO, 

A última opção permite que desenhos 
sejam carregados ou gravados na fita: 
conecte o cassete e responda às pergun- 
tas apresentadas. 
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3070 HPLOT PX(1),PY(l) TO PXIZ 
)aPY(1) TO PX(2),PY(2) TO PXCI) 
«PY(2) TO PXC(L),PY(1):M = O: GO 


TO 3000 

3080 BA = SOR ((PX(L) - PX(Z)) 
* (PX(1) - PX(2)) + (PY(1) - P 

T(2)) * (PTC) - PY(2Z))): FOR I 
= 0 TO 2 *4 PT STEPPI/ÃI1B0 
3090 HPLOT PX(2) + BA * SIN ( 

L).PY(2) - RA * cos (1) 

3100 NEXT 

3110 GOTO 3000 

4000 CI = O 

4010 GOSUB 1500: GOSUB 1000: 1 

F AS < > €CHAS (32) THEN GOTO 
4010 

4020 POKE M,ME 

4030 CI = CI+I:PX(CL) = A:PYÍ 

CI) = Y: PRINT CHRS (7);: HPLO 

TX.Y:M = 0 

4040 IF CI < > 3 THENA4QOLO 

4050 CE = SQR ((PX(1L) - PX(2)) 
* (PX(1) - PX(2)) + tPYId) - P 

Y(2)) * (PT(d) - PTIZ))IECÊ = É 

E / 2 

4060 Al = SOR ((PX(1l) - PX(3)) 
* (PX(1) - PX(3)) + (PY(l) - P 

T(3)) * (PTI) + PT(3))) 

4070 A2 = SOR ((PX(3) - PXI(2)) 
* (PX(3) - PX(2)) + (Pt(Z) - P 

T(2)) * (PY(3) - PFCZ))):ÃE = | 

Bl + AZ) / 2 

4080 BE = SQR (AE * AE - CE * 

CE) 

4090 FOR I = OTOZÃ*PISTEP 

PI / 180 

4100 IF PX(1) < > PX(2) THEN 

4120 

4110 HPLOT PX(1) + BE * COS ( 

na.PY(I1) + C-)* (PT(d) > PTC 

2))) * CE - AE * SIN (1): NEXT 
- GOTO 4000 

4120 HPLOT PX(1) + (- |" (Pk 
(1) > PX(2))) * CE + AE * £<COS 
(I).PY(L) - BE * SIN (1): NEXT 
+: GOTO 4000 

7000 TEXT HOME PRINT "Grav 

ar/Carregar” 

7010 VTAB 10 

7020 INPUT "Opcao? (G/C) ":BS 

7030 IF RS < > "G” AND AS < 

> "C” THEN 7030 

7040 INPUT "Nome do desenho? ” 
'DES 

7050 INPUT "Pagina? ";P 

7060 IF AS = "C” THEN 7080 
7070 PRINT cCHRS (4); "BSAVE";D 

E3S;",A";P * 8192;",L";8192: GOT 

O 250 

7080 PRINT CHRS (4);"BLOAD";D 

ES;",A";P * B192: GOTO 250 


Usaremos agora as opções mais so- 
fisticadas do nosso editor de desenho. 
RETANGULO, CIRCULO e ELIPSE 
estão à sua disposição. 

Para a opção RETANGULO, mova 
o cursor até um canto do quadrilátero 
que deseja traçar. Tecle a barra de es- 
paço, leve o cursor para o canto diago- 


nalmente oposto e tecle novamente a 
barra de espaço. Sua figura está pron- 
ta. 

CIRCULO funciona de maneira pa- 
recida, só que o primeiro ponto corres- 
ponde ao centro da figura a ser traça- 
da. O segundo determina o tamanho de- 
la, ficando na periferia. 

Ao usar a opção ELIPSE, não se es- 
queça de que o maior eixo da figura de- 
ve estar sempre na horizontal ou na ver- 
tical. Selecione três pontos para traçá- 
la. Os dois primeiros funcionarão como 
os focos da elipse e o terceiro ficará na 
periferia. 

Por fim, GRAVAR/CARREGAR 
permite que você grave uma imagem em 
disquete ou que a carregue na memória 
do micro. E possível, inclusive, carregar 
um desenho pronto de algum outro pro- 
grama ou jogo. A identificação de uma 
imagem de alta resolução no diretório 
é fácil: em geral, ela ocupa 34 setores do 
disco e tem a letra B à frente do nome 
do arquivo. Para carregá-la, simples- 
mente coloque o disquete no drive e di- 
gite o nome correto do arquivo quando 
este for solicitado pelo programa. 


ny 


480 CI=0 


490 GOSUB31L0:-GOSUBZ10: TFASS2CHR 


S(32) THEN490 

500 CI=CI+I:PX(CI)J=K:PYT(CI)=Y:B 
EEP:PSET(X,Y),CO:M=0 

510 IFCI<>2THEN490 

520 0N0PG0T0590,590,530,540,550 
,/560,560 

530 LINE(PX(1), PY(1))-(PR(2),PY 
(2)).C0:M=0:GOTO4B0 

540 LINE(PX(1),PY(1))-(PX(2),PY 
(2)),00,B:M=0:GOTO4BO0 

550 LINE(PX(1L),PY(1))-(PX(2),PY 
(2)),C0,BF:M=0:GCOTO4BO0 

560 RA=SQR( (PX(1)-PX(2))*(PX(1) 
-PH(Z2))+(PTL(1)-PY(2))*(PLII)-PY 
(2))) 

570 CIRCLE (PX(1L),PY(L)),RA,CO: 
M=0: IFOP=6THENGOTO480 

580 PAINT (PX(1)+1,PY(1)),C0:GO 
TOS BO 

590 LINE(PR(L),PY(1))-(PX(2),PY 
(2)),CL,BF:M=0:G0T048N 

600 C1=0 

610 GOSUB310:GOSUB210: TFAS<>2CHA 
8 (32) THEN610 

620 CI=CI+L:PX(CI)J=X:PY(CI)=Y:B 
EEP:PSET(X,Y),CO:M=0 

630 IFCI<>ITHEN6ITO 

640 CE=5SOR([(PX(1)-PX(2))*(PX(1) 
-PX(2))+(PY(1)-PY(2))*(PY(1I)-PY 
(2) )) :CE=CE/2 

650 CI=SOR((PX(1)-PX(3))*(PX(1) 
-PX(3))+(PY(IL)-PY(I3))FPY(I)-PY 
(3))) 

660 C2=SOR((PX(3)-PX(2))J*(PX(I) 
-PX(2))+(PY(3)-PYIZ))X(PY(3)-PY 
(2))) :AE=(Cl+C2)/2 

670 BE=SQR (AE*HAE-CEX*CE) 


CORES NO SPECTRUM 
O programa apresentado permite 
que você faça desenhos coloridos no 
Spectrum, mas é preciso ter cuidado 
| para evitar problemas de sobreposição | 
| de cores. Se duas ou mais cores forem 
colocadas no mesmo retângulo de ca- 
ractere, a última tomará o lugar das ou- 
tras. Planeje seu desenho de maneira 
que cores adjacentes sejam alinhadas 
de acordo com esses retângulos. 
Lembre-se de que em cada linha temos 
32 retângulos que contêm oito subdi- | 
visões na horizontal e 22 retângulos | 
com oito subdivisões na vertical. 





680 
690 
700 
| 
210 PSET (PX(1)+BEXCOS(J), PY(I1) 
+S*CE-AEXSIN(I)),CO:NEXT:GOTO60 
O 

!20 TIFPX(I)<PX(2) THENS=1ELSES=- 
| 

730 PSET (PX(1L)+5*CE+AE*COS (J), 
PY (1)-BE*SIN(J)),CO:NEXT:GOTO60 
| 


FORJ=0TOZ*PI STEP P1T/90 
IFPX(1)<>PX(2) THEN720 
IFPY (1) <PY(2) THENS=1ELSES=- 


Apagar permite que você suprima O 
desenho de determinadas áreas da tela, 
Selecione a opção e coloque o cursor no 
canto do retângulo que corresponde à 
área que pretende apagar. Pressione a 
barra de espaço. Leve o cursor para o 
canto diagonal oposto e pressione no- 
vamente a barra de espaço. Tudo o que 
estiver dentro do retângulo formado pe- 
los 2 pontos será apagado. Tecle < RE- 
TURNOS para trocar sua opção. 

Retângulo e Caixa funcionam de ma- 
neira semelhante, sendo que a primeira 
opção desenha uma figura vazia, ao 
contrário da segunda. Ao selecionar 
uma delas, leve o cursor a um extremo 
da figura e tecle a barra de espaço. 
Desloque-o até a outra extremidade e re- 
pita a operação. Sua figura será dese- 
nhada instantaneamente. 

Circulo e Disco têm uma relação se- 
melhante à das duas opções anteriores. 
O primeiro ponto será o centro da figu- 
ra e o segundo determinará o tamanho 
dela, ficando na periferia. 

Elipse requer três pontos para cum- 
prir sua função. Os dois primeiros de- 
terminam os focos da elipse e o tercei- 
ro, um ponto da periferia. Essa figura 
não é preenchida por cor. Para desenhos 
coloridos, você deverá recorrer à opção 
Pintar. 











| | | | 
| | | 
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EDIÇÃO DE 
PROGR 








Os micros da linha MSX possuem 
sofisticados recursos de edição. Suas 
teclas de controle e seu cursor 

tornam possível usar o vídeo como se 
fosse uma verdadeira “folha de papel”. 


Todos os interpretadores da lingua- 
gem BASIC oferecem alguns recursos 
para a edição de programas, ou seja, 
técnicas de entrada e alteração das linhas 
que os compõem. O primeiro interpre- 
tador BASIC, desenvolvido na década 
de 60 na Universidade de Dartmouth, 
nos EUA, fixou os recursos mais ele- 
mentares de edição: numeração, inser- 
ção, apagamento e listagem de linhas. 
Estes foram posteriormente adotados 
em todos os outros dialetos do BASIC 
que surgiram. 

O passo seguinte consistiu em dar ao 
programador a possibilidade de alterar 
caracteres, já que, com os recursos an- 
teriores, o erro de um caractere obriga- 
va-o a digitar novamente a linha toda. 

Com esse objetivo, desenvolveram-se 
comandos como o EDIT, presentes nos 
micros da linha Sinclair, TRS-80 e TRS- 
Color. Embora os recursos de edição 
disponíveis no EDIT sejam bastante ver- 
sáteis, eles ainda apresentam uma limi- 
tação: operam apenas em uma linha — 
cujo número precisa ser explicitado — 
de cada vez. 


EDIÇÃO BIDIMENSIONAL 





A limitação mencionada não passa de 
um resquício do tempo em que o BA- 
SIC era operado através de terminais 
impressores, desprovidos de movimen- 
tação bidimensional do cursor. 

Os projetistas do MSX, porém, sou- 
beram superar essa limitação, abrindo 
a possibilidade de se editar um progra- 
ma inteiro, e não uma linha de cada vez, 
desde que o trecho a ser editado estivesse 
exibido na tela. O comando EDIT foi, 
assim, suprimido, 

O conceito de edição de programas 
no MSX aproxima-se, incidentalmente, 
do utilizado nos avançadissimos micros 
profissionais da linha PC: envolve a uti- 





lização de teclas especiais, ou da com- 
binação de determinadas teclas, para 
“passear” o cursor de texto pela tela, 
inserir e apagar caracteres em qualquer 
ponto da mesma, etc. O computador 
“lembra-se” das modificações realiza- 
das na página de vídeo desde que se 
pressione a tecla < ENTER > ou <RE- 
TURN > após o término das modifica- 
ções em uma determinada linha. 

Uma possibilidade interessante do 
MSX é a de editar também os números 
de linha. Quando se utiliza esse recur- 
so, obtém-se duas linhas: a que tinha o 
número original, em sua própria posi- 
ção, e outra — que pode ser uma dupli- 
cata:da anterior ou incluir modificações 
— , que é automaticamente inserida em 
sua nova posição. 

As teclas fundamentais para a edição 
no MSX são as seguintes: 

| » - desloca o cursor de tex- 
to em uma posição para 

a direita 
- desloca o cursor de uma 
posição para a esquerda 
| - desloca O cursor para 

| cima 

- apaga o caractere ime- 
diatamente anterior ao 
<] cursor e recua O cursor 
de uma posição (retro- 


CESSO) 
- desloca O cursor para 
baixo 
<INS> - ativa ou desativa o mo- 
do de inserção de carac- 
teres 
<DEL> - apaga um caractere e re- 


junta o restante da linha 

< ENTERS - consolida as modifica- 
ções realizadas em uma 
linha 

A tecla HOME também pode ser uti- 
lizada durante o processo de edição, pa- 
ra fazer o cursor retornar à posição no 
topo esquerdo da tela. 

Ao editar um programa, use primei- 
ro o comando LIST, para colocar na te- 
la o trecho do programa que deseja edi- 
tar. Em seguida, desloque o cursor até 
a linha a ser editada. Para fazer as mo- 
dificações, escreva por cima do texto 
exibido, ou insira e apague caracteres 
por meio das teclas INS e DEL. Em se- 
guida, pressione a tecla <ENTER> ou 


NO 





E COMO EDITAR LINHAS 
DE UM PROGRAMA BASIC 

E O CONTROLE DO CURSOR 
E TECLAS FUNDAMENTAIS 
E MOVIMENTOS MAIS COMPLEXOS 


< RETURN, se quiser preservar as 
modificações feitas. 

A tecla INS em geral está desativada 
— ou seja, se você pressionar qualquer 
tecla de caractere, ele será impresso so- 
bre o que estiver sob o cursor no mo- 
mento. Para inserir um ou mais carac- 
teres em determinado ponto de uma li- 
nha, primeiro desloque o cursor até lá. 
Em seguida, pressione uma vez a tecla 
INS, colocando o computador em mo- 
do de inserção. Para encerrar o proces- 
so, pressione INS novamente ou, então, 
< ENTER>. 

Para verificar se o computador está 
em modo de inserção, observe o cursor 
de texto: de um retângulo, ele se trans- 
forma em um traço pequeno. Se você 
pressionar a tecla DEL durante o modo 
de inserção, poderá apagar caracteres 
sem desligar a inserção. 

Com o auxilio da tecla <CON- 
TROL>, pode-se obter movimentos 
mais complexos do cursor, assim como 
o acionamento de funções adicionais de 
edição. Pressionando-se simultanea- 
mente < CONTROL > e uma outra te- 
cla alfabética, chega-se a alguns resul- 
tados interessantes: 
< CONTROL > <F> - desloca o cur- 

sor para a pri- 
meira letra da 
próxima pala- 
vra da linha 
<CONTROL > <B> - desloca o cur- 
sor para a pri- 
meira letra da 
palavra ante- 
rior, na linha 
< CONTROL > <N> - desloca o cur- 
sor para o fi- 
| nal da linha 
<CONTROL> <E> - apaga a linha 
corrente desde 
o ponto onde 
está o cursor 
até o final 
<CONTROL> <U>- apaga toda a 
linha onde es- 
tá o cursor 

Convém lembrar, finalmente, que os 
recursos ''normais”' de edição de pro- 
gramas (numeração, inserção de linhas, 
renumeração, listagem, apagamento, 
etc.), presentes no editor padrão do BA- 
SIC, também funcionam no MSX. 
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Microcomputadores podem se revelar 
grandes jogadores de baralho, com a 
vantagem de que nunca se cansam de 


jogar. Veja aqui como produzir 


gráficos para um carteado. 





Seus amigos e parentes se negam a jo- 
gar baralho com você? Já se cansaram 
de perder dinheiro? O cacife é muito al- 
to para seu orçamento? A solução para 
qualquer um desses problemas pode es- 
tar na série de artigos que iniciamos 
aqui. Programando seu micro para jo- 
gar Vinte-e-um, você terá uma vitima 
perfeita e poderá jogar sem perder um 
níquel, 

Nesta primeira seção, veremos como 
programar os gráficos necessários para 
criar um baralho na memória — e na te- 
la — de seu computador. O restante do 
programa — O jogo propriamente dito 
— será apresentado nos dois próximos 
artigos de Programação de medo” Gra- 
ve O programa por partes, 





à medida 


que for sendo ampliado. 

Se você não sabe jogar Vinte-e-um, 
não se preocupe: explicaremos as regras 
na última seção da série. Antes, porém, 
você precisará de um baralho completo. 


A rotina gráfica que possibilita ao 


- computador mostrar as cartas na tela é 


a seguinte: 


10 BORDER 4: PAPER 4: INK 9: 
CLS : POKE 23658,8: LET B=0: 
LET C=] : TM 

20 FOR N=USR "A" TO USR "Rº+7 
+ READ A: POKE N,A: NEXT N 
30 io RA FOR N=C4 PO 52: 





LET C(N)J=N: NEXT N 

40 DIM A(13,13,2) 

50 FOR N=€ TO 10: FOR M=C TO 
N: READ A(N,M,C) ,A(N,M, 2): 
NEXT M: NEXT N 

60 FOR N=11 TO 13: LET A(N,€, 
C)=4: LET A(N,C,2)=2: NEXT N 


70 LET CC=C: LET CP=100 
RO GOSUB 5000 
500 LET Y=0: LET X=1 


5Z5 LET Z=CicCe) 


530 GOSUR 5500 
40 STOP 
5000 CLS PRINT AT 10,5;" EMBAR 


ALHANDO AS CARTAS” 

S010 FOR N=€ TO LOO 

5020 LET X=INT (RNDA52) +C 
5 080) MET Y= INT (RND 52) +€. 
H(jé E Z=C(X): LET 
LER By) =2 ; 








“Paste 22d nda 


É (%) een, ita dd 


Rodin e 





SS au dudu 


mr a 


p' MA; fp 286 























5050 NEXT N 


5060 CLS RETURN 

SS00 FOR N=Y TO Y+8: PRINT PAP 
ER F:AT NMeXKE” "+: NEXT N 
SS810 LET ST=INT ((Z-€)/13) 


SS720 LET CH=144+57T 

4530 LET VA=2-(1345T) 

G540 TF ST<2 THEN INK Z 

4460 LET AC=L4/+VA 

5600 PRINT PAPER 7;A4T Y,X;CHR$ 
AUSAT Y,R+4;CHHS AC;AT Y+8,K;G 
HAS AC;AT Y+B,K+4;CHRS AC 

4610 FOR N=C TO VA: TF AIVA.N.C 


j<>B8 THEN PRINT PAPER Z;AT Y+ 
A(VA,N,C),X+A(VA,N,2) ;GCHARS CH 
S6420 NEXT N 

5890 INK 9 


5900 RETURN | j 
9000. DATA 0, Ê 127, 2 
a Es 28 8, B,28, 
A 8,28,8; 28428, 07, 
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GRAFICOS 

“DE ALTA RESOLUÇÃO 
COMO DESENHAR 

AS CARTAS DO BARALHO 
POSICIONAMENTO 





= 2." = = 


| DOS NAÍPES 

m COMO USAR VPOKE 
NA TELA GRÁFICA DO MSX 

a COMO EMBARALHAR . 
E DISTRIBUIR AS CARTAS 






9010 DATA 0,8,20,34,34,62,34,34 
,0,28,34,2,4,24,392,62 

9020 DATA 0,28,34,2,12,2,34,28, 
0,4,12,20,36,62,4,14 

9030 DATA 0,62,32,32,60,2,349,28 
,/0,28,34,32,60,34,34,28 

9040 DATA 0,62,34,2,4,8, 16,16,0 
[28,34,34,28,34,34, 28 


9050 DATA 0,28,34,34,30,2,34, 28 


,0,76,82,82,82,82,82,76 
9060 DATA 0,14,4,4,4,4,36, 24,0, 
28,34,34,34,58,102,30,0, 118,36, 
40,48,40,36,118 
9070 DATA 85,85, 85,85,85,85,85, 
85 
9100 DATA 4 
9110 DATA 2, 
9120 DATA 2, 
9130 DATA 1 
9140 DATA 1 
9150 DATA | 
3 
9160 DATA 1,1,1,3, 2. 2a 1,4,3,7 
7 ra 
| Data, Pie 3 PERA), 4,3,6 
o: 
O DADÁ. El, «br sanha. 3,4 245 
DA 7 






Mr 2 aba. SS 
ido 3 k 





ue 


+ ate 1 
4 


lores aparecerem. Assim, o programa 
poderá rodar no Spectrum de 16K. 

A linha 20 prepara os caracteres 
(UDGs) usados nos naipes, números e 
letras de cada carta. Os dados para is- 
so estão nas linhas DATA 9000 e 9070. 
Em seguida, a linha 30 cria um conjun- 
to de 52 cartas não embaralhadas. A ma- 
“triz A, dimensionada na linha 40, é 


| preenchida com os valores das linhas 


DATA 9100 e 9190, que contêm as 
coordenadas das figuras dos naipes em 
cada carta. A linha 50 preenche parte 
da matriz com as coordenadas dos sim- 
bolos das cartas numéricas, enquanto a 
linha 60 preenche o restante com as 
coordenadas dos mesmos nas cartas 
com figuras. É possível criar desenhos 
para as cartas com figuras, mas seria 
bem cansativo e demorado digitar os 
dados necessários. “Além disso, o pro- 
grama ficaria grande demais para o 
Spectrum de 16K. 

A linha 70 coloca os valores 1 e 100. 
“nas variáveis CC e CP, respectivamen- 
te, CC é a carta atual, ou o elemento da 
matriz de cartas que o computador se- 
lecionou por último. CP é a quantida- 





“de de fichas que o jogador possui. 


A linha 80 chama a sub-rotina que 
“embaralha as cartas. Ela começa na li- 
“nha 5000, que apaga a tela e comunica 
que as cartas estão sendo embaralhadas. 
O computador embaralha as cartas es- 
“colhendo duas, ao acaso, e trocando 
suas posições. O laço FOR...NEXT en- 
“tre as linhas 5010 e 5050 repete o pro- 
cesso 100 vezes: Existe uma chance de 
que uma mesma carta seja escolhida 
“trocando de posição consigo mesma””. 
- Isso, na prática, não tem nenhuma im- 

portância, pois o número de trocas de 
A ERIÇÃO é suficiente para garantir uma 
“boa '“embaralhada”. 

O valor da linha 5010 pode ser alte- 

rado para aumentar O número de troças, 


ti? números um pouco maiores que 100 


“Já provocam uma demora inaceitável. A 
sub-rotina termina na linha 5060, que 


Ê > limpa a tela e retorna. 
Di 


ud 


“A linha 525 coloca na variável Z o va- 
da carta atual — elemento CC da 
matriz C. Em seguida, a linha 530 cha- 


(a o nm a a sub-rotina 5500, que coloca as car- 


“tas na tela. A linha 5500 apresenta a par- 
te branca da carta, A 5510 eco 








428 


na o naipe correto (os naipes são nume- 
rados de 0 a 3). A linha 5520 calcula o 
código do caractere que contém o sim- 
bolo do naipe escolhido. A linha 5530 
identifica a carta — afinal, o número de 
vezes que o simbolo do naipe vai apare- 
cer depende disso. 

Antes de desenhar o naipe, o compu- 
tador seleciona a cor adequada. A linha 
5540 atribui a cor vermelha aos naipes 
com número O ou 1, e a preta aos ou- 
tros dois. 

A linha 5600 desenha o número da 
carta usando o caractere adequado, es- 
colhido pela linha 5560. A linha 5610 de- 
senha os símbolos do naipe, cujas coor- 
denadas são obtidas na matriz A. 

Finalmente, com a escolha da cor 9 
(cor de contraste), termina a sub-rotina. 


Sprites são mais adequados para mo- 
ver figuras. Como as cartas ficarão pa- 
radas, convém utilizar outra técnica pa- 
ra desenhar os números, letras e naipes 
das cartas. 


10 CLEAR 500:COLOR 15,12,12:S5CR 
EENO:KEY OFF 

20 LOCATE 8,11:PRINT 
NDO AS CARTAS” 

30 DIM NUS (13),NA(32):FOR K=1 T 
O 13:-READ NUS(K) «NEXT 

40 DATA BD2S4U5SER3IFDZ2NL4D3I, RDLD 
AR, RDNLDL, DRDUZ, NRDRDL, DZRULUR,R 
SBDGD, ND2ZRDNLDI., NDRDNLD, D251 0BR 
S1 2NU2Z2RU2L, 54BD5F2R20U6L3R4, S4NR 
9D6R INH2NFR2U6, DNDS8RS | 2ZNEF 

50 FOR I=] TO 32 

60 NA(T)=VPEEK (BASE (2)+23+1T) 

70 NEXT T 

B2 DIM SQ (61) 

Bá R=EAND(-TIME):MN=100 

B8 SCREEN 2:FOR I=0 TO 3 

90 VPOKE BASE (10)+252+I, 32 

92 VPOKE BASE (10)+252+1+256,32 

94 VPOKE BASE(10)+252+I+512,32 

96 NEXT 1 

120 FOR I=l TO 32 

130 VPOKE BASE (12/+2015+I,NA(T) 
131 VPOKE RASE(11)+2015+T, (ABS( 
I<17)*5+1)*16+15 

132 VPOKE BASE (12)+4063+T,NA(T) 
133 VPOKE BASE (11)+4063+T, (ABS[ 
[<17)*5+1)*16+15 

134 VPOKE BASE(1Z2)+6111+T,NA(T) 
135 VPOKE BASE(I1)J+6L11+T, (ABS( 
[€17)95+1)*16+55 

140 NEXT 

160 FOR K-0 TO 51:S0Q(K)=K:NEXT 


“EMBARALHA 


180 GOSUR 1500:N-0 

190 FOR CX-31 TO 200 STEP 4B:FO 
n cy-] TO 140 STEP 104 

200 GOSUB 1000:GOSUB ZU0D:- FOR 
-1 TO SOO:NEXT J,CT.Ck 

210 FOR d=] TO 10DO:NEXT:GOTO | 
90 


1000 ST=INT(5S0(N1/13)+1:NM=50(N 





|-13*ST+1I4:N-N+1: TE N>5] 
HIOLO RETURN 

1500 FOR X-52 TO Z STEP 1 

L510 O=INT(RND(1L)*X)+I 

1520 T=5OlX-1):50(X-1)=50 (9-1): 
SQ(Q-1L)=T 

1530 NEXT 

1540 FOR X=0 TO 9:50 (X+52)-5SQ(X 








THEN N 






)J:NEXT 

1550 RETURN 

2000 LINE (CX-1,CY-1)-(CX+42,CY 
+/1),145,BF 
2005 LINE 
71) 3,12 
2010 SS=NUS (NM): PX=CX+24: PY=CY+ 
24:GOSUB 2550:PY=CY+15:COSUB 25 
S0:PY=CY+35:GOSUB 2550:FOR J=0 


(CX-2,CT-1)- (CX-2,C7+ 





2mM OM 


Ed 


TO 4:PX=CX+7:PY=CY+8+J*B-GOSUB 
2550: PX=CX+34: GOSUB 2550:NEXT 
2020 IF ST>2 THEN COLOR1 ELSE € 
OLOR6 

2030 DRAW "Sl 2BM"+STRS (CX+3)+”, 
"+STAS (CT+2)+55 

2040 DRAW "SI2ZBM"+STRS (CUX+35)+" 
|" +STRS (CY+62)+55 


2050 IF NM/2<>INT(NM/2) OR NM21 


O THEN PX=CXK+24:PY=CY+24:GOSUB 
2500 

2060 IF NM=2 OR NM=3 OR NM=10 O 
AR NM=8 THEN PX=CK+24: PY=CY+1L5:G 
OSUB 2500:PY=PY+19:GOSUB 
2080 TE NM<4 OR NM>10 THEN 
(NM=10 OR NM-8) 


mm 


2500 
2140 


2090 1F THEN NS 


=INT((NM-1)/2) ELSE NS=INT(NM/2 


) 
2100 FOR J=0 TO NS-1 


2110 PX=CXK+7:PY=CY+8+J*I3B/ (NS | 
) :GOSUB 2500 

2120 PK=C0X+349:GOSUB 
2130 NEXT 

2140 RETURN 


25800 





2500 ON ST GOTO 2510,2520,2530, 


25840 

2510 VPOKE RASE(LOJ+ATNTIPY/B) 4 
Z2+INT (PX/8)+42,252:hETUBN 

2520 VPOKE BASE(IO)J+HINTIPY/H)* 
2+INT (PX/8)+372,253:BETUHN 

2530 VPOKE BASE (10) +INT(PY/8)+* 
2+TNT (PX/b)+32,2hb4:RETUKWN 

2540 VPOKE RASE(IOI+HTINTIPY/H)* 
2+ INT (PX/8)+32,255:RETURN 


2550 VPOKE BASE (LOJ+INTIPY/81*4 


2+INT(PK/8)+12, 165:NETURN 


A linha 10 cuida do espaço string da 
memória (retire o comando CLEAR pa- 
ra ver o que acontece), das cores da tela 
e das teclas de função na parte inferior 
do vídeo. A linha 20 comunica que as 
cartas estão sendo embaralhadas. 

As letras e números das cartas serão 
desenhados com DRAW. A linha 30 co- 
loca as instruções para o desenho den- 
tro da matriz NUS, depois que as leu na 
linha DATA 40. A linha 30 também di- 


mensiona essa matriz. 

Como não podemos usar sprites, co- 
locaremos os símbolos dos naipes (os 
caracteres 3 a 6) diretamente na tela 
de alta resolução, com VPOKE. A linha 
50 buscará os desenhos desses simbo- 
los dentro da tabela de padrões da tela 
de 40 colunas. O endereço inicial da ta- 
bela de padrões da tela O começa em 
BASE (2). 

A linha 60 dimensiona a matriz SQ, 











usada para embaralhar as cartas, e, ain- 
da, seleciona a tela de alta resolução e 
inicializa o gerador de números randô- 
micos, 

O laço FOR...NEXT das linhas 120 
a 140 transfere os padrões dos simbo- 
los dos naipes para a tabela de padrões 
da tela de alta resolução. Além disso, 
coloca as cores desses simbolos na tabela 
de cores. 

Como a tela de alta resolução é divi- 
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dida em três porções, tudo deve ser fei- 
to três vezes. Assim, as linhas 130, 132 
e 134 cuidam dos padrões, enquanto as 
linhas 131, 133 e 135 se encarregam das 
COTEÊS. 

O laço FOR... NEXT das linhas 70 a 
110 modifica a tabela de nomes da 
tela de alta resolução, impedindo que 
os símbolos sejam desenhados agora. 
Apague essas linhas para ver o que acon- 
tece. 
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A linha 160 coloca valores de O a 51 
nos primeiros elementos de SQ. A linha 
180 chama a sub-rotina que embaralha 
as cartas (linhas 1500 e 1510). O valor 
O é colocado em N; isso significa que o 
primeiro elemento de SQ está sendo co- 
locado em questão. 

A linha 190 inicia um laço FOR... 
NEXT que usa as variáveis CX e CY, 
cuja função é posicionar os símbolos 
dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, fornece o nai- 
pe—ST— eo valor — NM — da car- 
ta em questão. A segunda, da linha 2000 
à 2140, calcula as posições onde os sim- 
bolos dos naipes devem ser desenhados 
naquela carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos simbolos dos naipes — 
as cartas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem três ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para colocar os símbolos de 
determinado naipe em número e posi- 
ção adequados, 

Antes do cálculo das posições dos 
naipes na tela, os números ou letras cor- 
respondentes ao valor da carta são de- 
senhados em cantos opostos da mesma 
pelas linhas 2030 e 2040, que usam a in- 
formação contida em NUS. 

As linhas 2050 a 2090, com base no 
valor da carta e de CX e CY, calculam 
as posições onde os símbolos dos naipes 
serão colocados na tela. As coordena- 
das da posição estão em PX e PY. 

Uma vez que PX e PY tenham sido 
calculados, a sub-rotina da linha 2500 
é chamada. Ela calcula a posição da ta- 
bela de nomes — BASE (10) — em que 
devemos colocar os simbolos dos naipes, 
para que eles apareçam numa posição 
correspondente a PX,PY. Essa sub- 
rotina é responsável pelo desenho pro- 
priamente dito. 

A linha 2000 desenha a parte branca 
da carta, mas não apaga os desenhos 
produzidos com VPOKE. Isto é feito 
pela linha 2010, que apaga qualquer 
simbolo de naipe que tenha restado de 
uma antiga carta. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
190, Esta desenha uma nova série de oi- 
to cartas. 


Apresentamos a seguir O programa 
que mostra as cartas na tela do Apple. 














Para que funcione no TK-2000, preci- 27 407 47 vA0S 209 5,219 ,63 ; = PY + 26:PX = PX + B: ROT= 32: 


saremos fazer uma pequena alteração. 159 ,0 ,0 ,0 ,0 ,0 GOSUB 2500: ROT= 0 | 
94 DATA O ,8 ,45 ,45 ,109 ,2 2080 IF NM< 4 ORNM> 10 THEN 


18 223 qr BR AP 9 qiAL ql? 2140 


lo HOME :E = 35000: HIMEM: E: 223 ,27 87 ;109 ,9 ,141 5,27 2090 IF (NM = 10 OR NM = 8) TH 
HTAB 9: UTAB 12: PRINT "EMBARAL  ,223 ,31 ,87 ,45 ,45 ,109 ,218 EN NS = INT ((NM- 1) / 2): G0 
HANDO AS CARTAS" Ot Pl0 4? 40 sh TO 2100 

20 F = INT (E / 256): PORE 232 96 DATA 0,8 ,77 ,73 ,209 ,2 2095 NS = INT (NM / 2) 

E — E * 256: POKE 233,F 23 ,219 ,97 ,77 9 ,l4i ,219 ,2 2100 FOR JU = O TONS-l 

30 FORI = ETOEM+ad4lL+ 17 x 73,187 ,4i ,45 ,7) ,209 ,27 ,2) 2110 PX = CX + B:PT = Cr +20 + 

32 23 ,187 ,105 ,73 ,141 ,251 ,219 J*38/ (NS-1):F=(Jxa38 

a REA A: POKE I,A MD O O 0 / (NS - 1) + 20 > 39): ROT= F * 

EXT e O ta 'PX = + E x B:PY = PY +EF 

EO Rar Ro 47 Wodr à 98 DATA 0,72 ,109 ,109 ,26 ci ço ERA: ain fi À 
O DATA 20 ,0 ,42 ,0 ,74 ,0 , 163 ,63 ,63 ,87 ,45 ,45 ,45 ,21 2120 FE = (J * 38 47 (WS - 1) + /! 


à 202 o 5,59. 463 «285 v7á 44) 2105 +20 


TOG-,0 ,138 ,6 370 ,0 ; 
| oa ct 1 9 AN 223 88 73 A 209. 42 
1 


20 < 34):F = NOT (FE OR F):PX 


234,0 ,10 ,1 ,42 ,1, = CX + 32 + ( NOT FE) * 8:PY = 

6 SI Í3D vi A7O 1 202 A; 19 Ei 80,00 0 0 E gi e ER AI. 
ad 1 BO dE A SA SãO OO BABA JO te O O ql e ROD Robo O 
E E 27 ,63 ,223 ,74 45 ,45 .14l 5 30 NEXT 

72 DATA O ,72 ,45 ,109 ,209 aos o po ds a di So 2140 RETURN 

ds O ) E fis ' ' 69 1251 d h ' ' ' E ' ' | T 7 

o ão EO 73 E a "63 219 ,219 519,0 ,0 | Aa ON ST GOTO 2510,72520,2530 

163 ,63 ,55 ,77 ,73 ,169 ,251 2510 HCOLOR= O: DRAW 14 AT PX, 


] io? ,6A 4223 A 590 477 5209 
DO ud? A O 40 40 45,173 , PY: RETURN 


74 DATA 0,72 ,45 ,109,209 0 a o dos 157" 2520 HCOLOR= O: DRAW 15 AP PK, 
EM DMD 1ESO n7d al cho padO mo pa POE POD SARA OD NAS E RRE V pr IN 


19 163, 5459 40. 77 4 4A16 491 o De A dE aÃ 2530 HCOLOR= O: DRAW 16 AT JIN 

9 ,251 ,74 ,45 ,109 ,209 ,219, | A ; | o 

Moo O O AO DP: GOI PHS 7d AB «AD IG) 45 E pd PE dig is 

76 DATA O 1:72 .45 .109 ,209 9 ,63 ,63 ,191 ,41 ,45 ,45 ,173 T (PY ENT py) KEDUPN 

251 ,219 ,63 ,73 ,9 141) ,219 27 091 031) 0159 ,73 ,105 ,137 RP EN RAR 

63 2585 74 ,73 105 ,218 ,223 Er E ug ro 0 Se você tiver um monitor monocro- 
,219 ,74 ,45 ,109 ,209 ,219 ,2 . mático e quiser dar um aspecto mais 

as cid Ed ua Rana prada K = 0 TO 51:80tk) = K: agradável à tela, apague a linha 170. 
251 ,251 ,74 ,77 ,77 ,218 ,63 160 HGR : POKE - 16302,0 d Os oa 
63 4180 ,73-40 (IP 2L0 US o, MO COLORS 4FOR T » |O TO 19; Gal a Mino ISV para; 

LO 74 733 7 52168 ,219 ,219 1: HPLOT 0,1 TO 279,1: NEXT 1160 MP : HGR 

E O nO 050 0 1B0 GOSUB 1500:N = O 

B0o DATA O ,72 ,45 ,109 ,209 190 FOR CX = 6 TO 250 STEP 54: As primeiras linhas do programa são 
219 27 159 59,77 073 0218 » FOR CY = 2 TO 180 STEP 100 responsáveis por montar na memória do 

59 ,63 ,159 ,73 ,9,77 ,218 ,25 200 GOSUB 1000: GOSUB 2000: FO Annie uma tabela de figuras contendo 

1 ,219 ,74 ,45 ,109 ,209 ,219 , Ra = indir seo ioga as letras e números das cartas, bem co- 4 

219,19 ,0 ,0 4,0 ,0 : mo os símbolos dos naipes. As linhas 


82 «DATA 0,72 ,45 ,109 ,209 GOTO 190 oo 
(248,27 159,9 ,77 ,73 ,218 , 1000 ST = INT (SQ(N) / 13) + 1 DATA 70 a 104 foram ras pelo nos- 
59 63,159 ,9,77 ,77 ,218 ,25 :NM = SQ(N) - 13 *ST+ 14:N= SO programa editor de figuras. As pri- 























a je 45 109 ,209 ,219, N+ 1: IF N> 51 THENN=O meiras delas, com exceção da mensagem 
nx 0.0 1010 RETURN “EMBARALHANDO AS CARTAS”, já 
72 ,45 ,45 ,141, 1500 FOR X = 52 TO 2 STEP - 1 apareceram diversas vezes em INPUT. 

219 a 73 1105 218 458200 = INT C BND ti) * X) + A linha 110 dimensiona a matriz SQ, + 
(219 ,74 po (77 ,209 ,219 1 usada para embaralhar as cartas. A li- 
= ERA 219 ,219 1520 T = SO(X — 1):SQ(X — 1d) nha 120 enche essa mesma matriz com 

SO(O - 1):8S000 - 1) = T | E 
109 .209 1530 NEXT valores de O a 51. 

, 204 | g À 1 
27.1 77 ,218 , 1540 FORX=O TO 9:SQ(X + 52) A linha 160 liga a tela de alta resolu 
159 2) 218 ,25 = SQ(X): NEXT ção. No Apple, um POKE faz com que 
: ie ; | 1550 RETURN a tela seja totalmente utilizada. No 

O O, 2000 HCOLOR= 3: FOR I = cy TO  TKZ2 la selecionada é a segun- | 













72 re 209 CY + BO: HPLOT CX,I TO CX + 50, da, precede HGR, pa- 
«223 59 EB DD I: NEXT ra mo efeito. 
159 ,25 2010 S = NM 
o 74 ,2 2020 HCoLOR= 
O | 2030 DRAW 5 
TA | 2 2040 ROT= 32 
51 ,251 ,18 105 ,169 ,25 B,Cy + 72: RO 
1 .251 ,187 ,105 ,108 ,169 ,251 º 
são ,187 ,105 dl ,45 5,213 ;t 
EO IS DO 0,0 40 40 0 
92 DATA 72 ,9 ,45 ,14] 
e 20 à a TA sadB 
hà «419. » 5418 451 


io 








o de fun- 





(45 573 




























= CY + 27: GOSUB 2500:PY 













A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, fornece o nai- 
pe — ST — e o valor NM — da carta 
em questão. A segunda, da linha 2000 
à 2140, calcula as posições em que de- 
vem ser desenhados os símbolos do nai- 
pe da mesma carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos símbolos dos naipes — 
as cartas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem dois ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para desenhar os símbolos 
de determinado naipe em número e po- 
sição adequados. A instrução ROT com- 
plica um pouco mais essa sub-rotina, 
pois faz com que alguns simbolos apa- 
reçam de cabeça para baixo. 

Antes do cálculo das posições, as li- 
nhas 2030 e 2040 desenham os números 
ou letras da carta em questão em can- 
tos opostos da mesma, usando DRAW. 

As linhas 2050 e 2090 calculam as po- 
sições de cada simbolo do naipe, com 
base no valor da carta. PX e PY são as 
coordenadas desta posição. 

Uma vez que PX e PY tenham sido 
calculadas, a sub-rotina da linha 2500 
é chamada. Essa rotina usa DRAW pa- 
ra desenhar os símbolos dos naipes. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
190. Esta desenha uma nova série de dez 
cartas. 


an RR 


Apresentamos a seguir a seção do 
programa para o TRS-Color que dese- 
nha as cartas. Digite-a e use RUN para 
ver o computador distribuir as cartas. 


10 PMODE 3,1 

20 CLS: PRINT €226, 
LHANDO AS CARTAS” 
30 DIM NUS(13):FOR K=1 TO 13:RE 
AD NUS (K) :NEXT 

40 DATA BD2S4U5SERSFD2NLSD3I, ADLD 
R, RDNLDL, DADUZ, NEDE 


"ESTOU EMBARA 















































90 DATA 1,0,6,64,9,128,38,96,25 
,144,102,100,153,152,102,100,15 


3,152,34,32,2,0 

100 DATA 2,0,9,128,6,64,9,128,3 
4,32,453,152,1402,7101,133,1452,20 
2,101,17,16,2,0 
110 DIM €(3),D(3) 
61) 

120 GET(0,0)-(13,10),H,6 

130 GET(0,11)-(13,21),D,6 

140 GET(0,22)-(13,32),8,6 

150 GET(0,33)-(13,43),C,6 

160 FOR K=0 TO 51:50(K)=K:NEXT 
170 PCLS 6:SCREEN 1,1 

180 GOSUB 1500:N=0 

190 PCLS 6:FOR CX=6 TO 200 STEP 
50:FOR CY=11 TO 108 STEP 97 
200 GOSUB 1000:GOSUB 2000:FOR J 
=] TO 500:NEXT J,CY,CX 

210 FOR J=1 TO 1000:NEXT:GOTO 1 

90 

1000 ST=INT(SQ(N)/13)+1:NM=5Q(N 
)J-13*ST+14:N=N+1L:IF N>51 THEN N 

=) 

1010 RETURN 

1500 FOR X=52 TO 2 STEP -1 

1510 Q=RND(X) 

1520 T=SQ(X-1):SQ(X-1)=SQ(Q-1): 

SQ(0-1)=T 

1530 NEXT 

1540 FOR X=0 TO 9:50(X+52)=5Q(X 

) :NEXT 

1550 RETUAN 

2000 LINE(CX,CY)-(CX+44,CY+72), 

PRESET,BF 

2010 SS=NUS (NM) 

2020 IF ST>2 THEN COLOR / ELSE 

COLOR 8 

2030 DRAW"SI2Z2BM"+STRS (CK+3)+"," 

+STRS (CY+2)+55 

2040 DRAW"S12BM"+STRS (CK+35)+”, 

"+STARS (CY+64) +55 

2050 IF(NM/2 <> INT(NM/2) AND N 

M<>7) OR NM>10 THEN PX=CX+16: P 

Y=CY+31:GOSUB 2500 

2060 IF NM=2 OR NM=3 OR NM=10 O 


A NM=B THEN PX=CX+16: PY=CY+19: 
GOSUB 2500: PY=PY+24: GOSUB 250 
d) 


+-H(3),5(3),504 


2070 IF NM=7 THEN PX=CKX+16: PY= 
CY+39: GOSUB 2500 

2080 IF NM<4 OR NM>10 THEN 2140 
2090 IF (NM=10 OR NM=8) THEN NS 
=INT( (NM-1)/2) ELSE NS=INT(NM/2 
) 

2100 FOR J=0 TO NS-1 

2110 PX=CX+3:PY=CY+12+J*38/ (NS- 
1) :GOSUB 2500 

2120 PX=CX+30:GOSUB 2500 

2130 NEXT 
2140 RETURN 







2500 O 10,2520,2530, 
2510 X+13,PY+10),H 
+1OR:RE 

2520 | PX+13,PY+ 

+ OR: RETUR 


2540 PUT(PX,PY)-(PX+13,P 
|, OR: RETURN 







Escolhemos um PMODE com 4 co- 
res, de modo que os naipes e números 
das cartas sejam azuis ou vermelhos. A 
linha 20 comunica ao jogador que as 
cartas estão sendo embaralhadas. 

O comando DRAW coloca na tela de 
alta resolução as letras para Os ases, reis, 
damas e valetes, bem como os números 
das cartas. As instruções para esse co- 
mando são lidas na linha DATA 40 e 
guardadas na matriz NUS pela linha 30, 
usando READ. 

A linha 60 coloca os símbolos dos 
naipes na tela, usando POKE. Os pa- 
drões para esses simbolos são obtidos 
nas linhas DATA 70 a 90. As linhas 120 
a 150 usam o comando GET para guar- 
dar os símbolos na memória, tão logo 
sejam desenhados. As matrizes que os 
guardam foram dimensionadas na linha 
110, juntamente com a matriz SQ, em- 
pregada para embaralhar as cartas. A li- 
nha 160 coloca os números O a 51 na ma- 
triz SQ. 

A linha 180 chama a sub-rotina que 
começa na linha 1500, para que as car- 
tas sejam embaralhadas. O valor zero é 
colocado em N, o que significa que o ele- 
mento 0 da matriz SQ está em questão. 

A linha 190 colore a tela de ciano e 
inicia dois laços FOR...NEXT que in- 
cluem as variáveis CX e CY, usadas pos- 
teriormente para posicionar os simbo- 
los dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, calcula o nai- 
pe — ST — e o número — NM — da 
carta em questão. A segunda, da linha 
2000, calcula as posições em que os sim- 
bolos do naipe da carta serão desenhados. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um bafálho, 
pode-se entender melhor seu funtidha- 
mento. Existem certos padrões quage re- 
petem na disposição dos símbol 4 
naipe — as cartas de menor alor us 
apenas um deles, enquanto as 












ri 
valor requerem dois ou mais. A 
rotina verifica quais os o? 







comando DRAW 
tida em NUS. 
2050 a 2090 calculam as 







PY são a | 







partir de CX e 
Uma vez que 
calculadas, a sub-rotina 2500 é chama- 


“da, desenhando os símbolos do naipe. 


A linha 210 provoca 


apaga a tela 





a pausa an- 
nha 190. Es- 
utra carta. 
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FUNÇÕES 





A função de potenciação tem varia- 
das aplicações, sobretudo quando pre- 
cisamos calcular áreas e volumes em 
nossos programas. 

No computador, essa função, repre- 
sentada por 1, é colocada sempre entre 
dois números. Por exemplo: 213 (diz-se 
“dois elevado à terceira potência”). 


CURIA 


Na maioria dos computadores aqui 
indicados, a função de potenciação de- 
ve ser digitada por meio da tecla (cir- 
cunflexo), e é assim que ela aparecerá 
nas listagens. As exceções são: 


ES Ee 


Usa-se a tecla 1 para digitar a opera- 
ção de potenciação. 


Usa-se a tecla ** (duplo asterisco) pa- 
ra digitar a operação de potenciação. 

Um número elevado à potência de 
outro é simplesmente o primeiro núme- 
ro multiplicado por ele mesmo um cer- 
to número de vezes. O segundo número 
determina quantas vezes. 

De volta ao exemplo inicial, dois ele- 
vado à terceira potência é dois multipli- 
cado por dois três vezes. Ou seja: 


2º 3 = 2*2*2 = 8 


A operação é a mesma para qualquer 
par de números. 


2º5 = 2924224222 = 32 
5"4 = 5n52545 = 625 


Convencionalmente, representa-se a 
função de potenciação colocando-se o 
segundo número, em tamanho menor, 
junto ao primeiro. Por exemplo, 2º, 5º. 
O computador, porém, não entende es- 
sa notação matemática. 


AO QUADRADO E AO CUBO 





A potência de dois e a potência de 
três recebem denominações especiais. 


| Qualquer número elevado à potência de 


EMÁTICAS 


dois é dito “elevado ao quadrado”, e 
qualquer número elevado à potência de 
três é dito “elevado ao cubo”. De fato, 
existem razões para esses nomes. 

Quando calculamos a área de um re- 
tângulo (seja ele um tapete ou qualquer 
objeto retangular), medimos seu com- 
primento e largura e, em seguida, mul- 
tiplicamos os dois números. O resulta- 
do dessa multiplicação é um número em 
unidades quadradas. A área é medida 
em ''metros quadrados” porque, na ver- 
dade, estamos calculando quantos qua- 
drados, de lados iguais a um metro, ca- 
bem nesta área. Da mesma maneira, um 
número elevado a dois é dito ao quadra- 
do (uma área quadrada é representada 
pela multiplicação da unidade básica 
por ela mesma). 

Enquanto a potência de dois recebe 
um nome de medida de área, a potên- 
cia de três recebe um nome de medida 
de volume. Para calcular o volume de 
um cubo, multiplicamos o comprimen- 
to pela largura e, depois, pela altura. 
São necessárias, portanto, três multipli- 
cações da unidade básica (duas para a 
área e mais uma para a altura). Um nuú- 
mero elevado à terceira potência é, as- 
sim, um número ao cubo. 





POTÊNCIAS MAIORES 


Vimos que um número ao quadrado 
calcula área e um número ao cubo cal- 
cula volume. Não é possível construir 
modelos para potências maiores que 
três. Se tivéssemos um objeto com qua- 
tro dimensões, seu volume seria medi- 
do em unidades de quarta potência, o 
que é obviamente absurdo. Contudo, as 
potências maiores têm muita utilidade, 
como veremos a seguir. 

Suponha, por exemplo, que quere- 
mos saber a probabilidade de um dado 
cair com a face seis para cima. É sim- 
ples: cada face tem a mesma chance de 
aparecer; portanto, cada face tem 1/6 
de chance. Suponha, agora, que quere- 
mos saber a probabilidade de obter seis 
duas vezes seguidas. Existe 1/6 de chan- 
ce de que apareça um seis na primeira 
vez e, se aparecer, existe outro 1/6 de 
chance de que apareça um seis na segun- 
da vez. A probabilidade total é 1/6 ve- 






E q fadi==— — = = 


Aqui estão mais algumas funções 
matemáticas em BASIC. Suas aplicações 
práticas vão desde o cálculo da área 

de um piso até o cálculo da velocidade 
de um corpo em queda. 


um = 4 — =" = Z —- - E 





zes 1/6, ou seja, 1/6 ao quadrado. O 
mesmo vale para quantas vezes quiser- 
mos. A chance de que o dado caia sete 
vezes com o três para cima, por exem- 
plo, é: 1/6* 1/6* 1/6* 1/6* 1/6* 1/6 
* 1/6 = (1/6)17. 

Quando examinamos a conversão pa- 
ra binário, tivemos a oportunidade de 
usar números elevados a potências maio- 
res. Cada dígito binário representa uma 
potência do número dois. No número 
binário 11111111, por exemplo, o pri- 
meiro dígito da direita (bit 0) represen- 





ERRA 











ta um 1,o senda (bit 1) um 2, o ter- 
ceiro (bit 2) um 4 e os seguintes, respec- 
tivamente, 8, 16, 32, 64, 128. . 

Veja que 46 2*2, ou 2 elevado à po- 
tência de 2; 8 é 2*2*2, ou 2 elevado à 
terceira potência, 16 é 2*2*2*2 e assim 
por diante: 


E: 2*2 4 
2" LR 2 8 
2*2*2*2 16 

 QRQRZ*2 32 
= Z242%2%24222 - 64 
2%2%2%2*%2%2*2 


[ A FUNÇÃO DE POTENCIAÇÃO 
RH NÚMEROS AO QUADRADO 
E NÚMEROS AQ CUBO 

oo. NÚMEROS ELEVADOS 
“A GRANDES POTÊNCIAS 


Estão faltando dois valores nessa ta- 
bela. Pode-se perceber facilmente quais 
são eles, mas a explicação talvez se- 
ja um tanto surpreendente. O primeiro 
valor é 211. Obviamente, pela analo- 
gia binária, ele deve ser 2. Na verdade, 
se 212 é 2 multiplicado por ele mes- 
mo uma só vez, 211 deve ser 2 multi- 
plicado por ele mesmo uma vez a me- 
nos, ou seja, nenhuma.vez. 211 fica, en- 
tão, valendo 2. 

O valor abaixo deste é 210. À primei- 
ra vista, parece que o resultado é zero mas, 


“O CÁLCULO DA ÁREA 
DE UM QUADRADO 

A RAIZ QUADRADA 

O USO DA FUNÇÃO SOR 
NUM PROGRAMA 


pela tabela acima, fica claro que é 1. 

Isso acontece porque 2 precisa ser 
multiplicado por ele mesmo uma vez a 
menos que 211. Como 271 é 2 mesmo, 
só há uma maneira de multiplicar uma 
vez a menos: dividir 2 por ele mesmo. 
E qualquer número dividido por ele 
mesmo, como sabemos, vale 1. 

Para verificar o que foi dito ou o va- 
lor de qualquer outra potência, você de- 
ve digitar: 


PRINT Z"X 












«onde X é o valor que pretende verifi- 
car. Em seguida, tecle < ENTER > ou 
< RETURN>. 





POR CURIOSIDADE... 


Experimente atribuir qualquer valor 
a X, ainda que valores grandes possam 
acarretar erros de sobrecarga (overflow). 
O que aconteceria, por exemplo, se se 
fizesse X igual a 1/2? Retornaremos ao 
assunto mais tarde. Por enquanto, va- 
mos explorar um pouco mais a tão usa- 
da potência quadrada. 


| COMPARE QUADRADOS 


O programa abaixo usa uma série de 
números para desenhar na tela diferen- 
tes quadrados, permite que se escolha 
dois deles e compara suas áreas. Acom- 
panhando-o, a idéia de potência ficará 
mais clara. 


Ml 


LO SCREEN 2:COLOR 15,12,3 

20 FOR N=17 TO 1 STEP -] 

30 LINE(60,17/1)-(60+8*N,1/1-8*N 
a RE 

40 NEXT 

50 IF INKEYS="" TREN 50 

60 CLS:SCREEN O 

70 PRINT"Deseja comparar alguma 
área (s/n) ?” 

BO AS=INKEYS:IF AS<>"a” AND AS€ 

2"n” AND AS<>2"58" AND ASC>2"N” TH 
EN BO 

90 IF AS="nº OR AS="N”º TRBEN 270 
100 PRINT: INPUT"Qual o primeiro 
quadrado cuja área quer compar 

ar (1-17) ";A:A=INT(A):IF AS1l O 

AR A>17 THEN 100 

110 PRINT:INPUT"E qual é o segu 

ndo (1-17) “;B:B=INT(B):TF B<l 

OR B>17 THEN 110 

120 TE A>B THEN 220 

130 CLS:PRINT” A primeira área 

cabe ": 

140 PRINTUSING"4HE. HI" FB Z/A"2; 

150 PRINT" vezes den-tro da seg 

unda” 

160 FOR K=1 TO 2500:NEXT 

170 CLS:SCREEN 2 

180 LINE(60,171)-(60+8*A,171-8x 

A), 1,BF:LINE(60,1]171)-(60+B+*B,1/ 
1=-B*B),1,B 

190 IF INKEY5S="" THEN 190 

200 CLS: SCREEN Q: PRINT" Quer co 

ijmparar mais alguma área (s/n) *? 








z ss = o = j 
l | 
| | 
| 
f ol —— mm k a — 


210 GOTO 80 

220 CLS:PRINT”" A primeira área 
os 

230 PRINTUSING" HA. 44" ;A 2/B"2; 
240 PRINT" vezes maior que a se 
gunda” 

2580 SWAP A,B 

260 GOTO 160 

270 CLS 

280 LOCATE 5,10 

?00 PRINT"qualquer fecla para r 
einiciar” 

300 IF INKEYS="" THEN 300 

110 GOTO 10 


Cato 


LO HGR2 : HCOLOR= 3 

20 HPLOT 10,180 TO 180,180 

30 HPLOT 10,10 TO 10,180 

40 FORT =10TOlZ0 STEPIMO 
50 HPLOT 10,T TO 190 - I,I 

60 HPLOT 190 - I,I TO I90 - 1, 



























O NEXT 1 
FOR T = O TO 3000: NEXT : T 





90 HOME VTAB 10 

100 PRINT "DESEJA COMPARAR ALG 
UMA AREA (S/N) 2” 

1)0 GET AS: IF AS < > "S” AND 
AS < > "Nº THEN 110 

IZO TF AS = "Nº THEN 500 

130 PRINT INPUT "QUAL O PRIM 


EIRO QUADRADO QUE DESEJA COM-PA 


RAR (11-17) "C.A:A = INT (A): IF 
A <I10RA>I?Z THENÕGIAIO 
140 PRINT : INPUT "E QUAL O SE 


GUNDO (1l-17) ";B:B = INT (B): 
IF B< 1 0R B > 17 THEN 140 


150 IF A > RB THEN JI90 

160 HOME VTAB 10 

170 PRINT "A PHIMETRA AREA CAB 
ECBTZA/AMZ;” VEZES DENTR 


O DA SEGUNDA” 
180 GOTO 210 


190 HOME VTAB 10 

200 PRINT "A PRIMEIRA AREA E' 
PRA O 2 / Bº 24” VEZES MAIOR Q 
UE A SEGUNDA” 

210 FORT = O TO Z000: NEXT 
220 HGR2 HCOLOR= 3 

230 KA = (A + 1) * JO:LA = 190 
- KA 

So EB = (E + 4j mm LOL = 190 
- KB 

250 HPLOT 10,LA TO KA,LA TO KA 
(180 TO 10,180 TO 1D,LA 

260  HPLOT 10,LB TO KB,LE TO KB 
180 TO 10,180 TO 10,LB 

270 FORT = O TO 3000: NEXT 
500 TEXT HOME : VTAB 10 

3910 PRINT "QUALQUER TECLA PARA 
REINICIAR”; 

520 GET AS: TF AS » ** THEN 5z 
Q 

530 RUN 

10 CLS 


20 PRINT AT 2,0;"Comprimento” 
:AT 3,0;"dos";AT 4,0;" lados” 
30 PRINT AT 2,24;"Area";AT 3, 
24;"do";AT 4,24;"quadrado” 

40 LET z=0: PLOT 55,23 

50 FOR n=1 TO 13 

60 LET m=n: IE m>7 THEN 
nm=mn-B 

70 DRAW 0,n*B8 

BO DRAW PAPER m;n*B,0 

90 DRAW PAPER m;0,- (nX*B8) 
100 DRAW PAPER 7;-(n*8),0 
110 PRINT AT 6+(13-n),0;n;AT 6 
+(13-n),25;n*n 

120 PAUSE 10: NEXT n 
140 INPUT "Voce quer comparar 
areas (s/n)?";as 


LET 


150 IF aS<>"s” AND as<>"n" 
THEN GOTO 140 

160 IF a$="n” THEN GOTO 300 
170 INPUT "Qual e o primeiro q 


uadrado cuja area voce quer co 


mparar? (1-13)";a: IF a<l OR à 
213 THEN GOTO 170 

180 INPUT “E qual e o segundo” 
(1-13)":;b: IF b<] OR b>13 THEN 
Goro 180 


190 LET x=INT (a): LET y=INT (. 





b) 

200 IF x>y THEN GOTO 280 

210 CLS PRINT "A segunda are 
ae "iy*2/x"2;" vezes maior do 
que a primeira” 

220 PLOT 20,0: DBAW x*8,0: 
DRAW 0,x*8: DRAW -x*8,0: DRAW 
0,-x*8: DRAW v*8,0: DBAW 0, v*8 
- DBAW -vy*8,0: DBAW O,-vy*B 

230 PRINT “Voce quer comparar 

mais areas (g/n)?" 

240 INPUT as 
250 IF as<>"s" 
THEN GOTO 240 
260 TF ag="n"” 
GOTO 300 

270 GOTO 170 
280 CLS PRINT "A primeira ar 
eae ";x"2/vy'2;" vezes maior d 
O que a segunda” 

290 GOTO 220 

300 TF z=|] THEN CLS LET z=0 
310 PRINT INK 2; FLASH L;AT Q 
0:" Pressione qualquer tecla 
para recomecar”" 

3120 PAUSE 0 

330 IF INKEYS="nº THEN 
340 RUN 


AND as<>"n” 


THEN LET 2=]: 


STOP 





10 PMODE4, 1:PCLS:SCREEN1,1 

20 FOR N=17 TO 1 STEP -1 

30 LINE (20,171)-(20+8*N,1/7/1-B* 

N), PSET,B 

40 NEXT 

50 CLS 

60 IF INKEYS$="" THEN 60 

70 PRINT” VOCE QUER COMPARAR AR 

EAS (S/N) 2?” 

BO AS=INKEYS:IF AS<>"S” AND ASS 

>"N”º THEN 80 

90 IF AS="N” THEN 220 

100 PRINT: INPUT" QUAL E O PRIME 

IRO QUADRADO CUJA AREA VOCE QUE 

R COMPARAR (1-17)";A:A=INT(A):I 

F A<l OR A>17 THEN 100 

110 PRINT: INPUT” E QUAL E O SEG 

UNDO (1-17)";B:B=INT(B):IF B<l 

OR B>17 THEN 110 

120 IF A>B THEN 200 

130 CLS: PRINT” A SEGUNDA AREA E 
";Bº2/A" 2; "VEZES MAIOR DO Q 

UE A PRIMEIRA” 

140 FOR K=1 TO 6000:NEXT 

150 PCLS:SCREEN 1,1 

160 LINE(20,171)-(20+8*%A,171-B* 

A)  PSET,B:LINE(20,171)-(20+B+*B, 
171-8*B), PSET,B 

170 IF INKEY$="" THEN 170 

180 CLS:PRINT” VOCE QUER COMPAR 

AR MAIS AREAS (S/N) ?” 

190 GOTO 80 

200 CLS: PRINT” A PRIMEIRA AREA 
E";A"2/B"2:PRINT 632,” VEZES MA 
IOR DO QUE A SEGUNDA." 

210 GOTO 140 

220 CLS 

230 PRINT €33,”" PRESSIONE QUALQU 
ER TECLA PARA RECOMECAR” 

240 IF INKEY$="" THEN 240 

250 GOTO 10 


























A rotina que faz a comparação co- 
meça pedindo que se escolha o primei- 
ro dos dois quadrados que serão cote- 
jados. Em seguida, verifica se o núme- 
ro que entrou não é ilegal, ou melhor, 
se não é menor ou maior que o numero 
de quadrados. 

A função INT transforma em intei- 
ro o número que entrou, caso este seja 
um decimal. 

Uma vez escolhidos os dois números, 
o computador compara-os a fim de de- 
terminar qual é o maior. Em seguida, 
eleva cada número ao quadrado (isto é, 
multiplica cada um por si mesmo) e di- 
vide o maior pelo menor. 

Finalmente, obtido o resultado, a ro- 
tina joga na tela a mensagem que diz 
qual número é o maior e o quanto ele 
é maior que o outro, 


RAIZ QUADRADA 


A potência de dois, ou a função qua- 
drada, talvez seja a mais utilizada das 
potências. Mas muitas vezes precisamos 
usá-la no modo inverso, ou seja, achar 
O número que gerou O número ao qua- 
drado que conhecemos. Suponha que 
sabemos, por exemplo, que a área de um 
quadrado é 81 e queremos especificar o 

comprimento dos lados. 

Com o número 81 não é tão difícil: 
9 vezes 9 é 81; portanto, o comprimen- 
to de cada lado deve ser 9. Mas se a área 
fosse 127, por exemplo, o cálculo do 
comprimento do lado (ou do número 
que ao quadrado é 127) torna-se bem 
mais difícil. Os computadores possuem 
uma função que ajuda neste cálculo: a 
função raiz quadrada. 

Digite PRINT SQR(81) e tecle 
< ENTER> ou <RETURN> — o nú- 
mero 9 deverá aparecer na tela. Para sa- 
ber quanto vale a raiz quadrada de 127, 
basta repetir a operação, substituindo o 
81 dentro dos parênteses por 127. 

O computador dispõe do comando 
especial SQR porque a raiz quadrada é 
amplamente empregada. Mas podemos 
utilizar também, para o mesmo cálcu- 
lo, a função de potenciação. 

Se você já usou frações como potên- 
cia, deve ter observado que 21.5 (ou dois 
elevado a 1/2) tem o mesmo efeito que 
SOR(). Experimente em seu micro 
SQR(81) e depois 811.5. Os resultados 
podem não ser exatamente os mesmos 
mas, certamente, serão bem próximos. 

A fração 1/3, usada como potência, 
calcula o inverso do cubo, ou seja, a raiz 
cúbica. A mesma analogia vale para as 
outras potências. Embora cada raiz te- 
nha sua própria aplicação, a raiz qua- 
drada é a mais usada de todas. 


O comando SQR faz muito mais do 
que simplesmente calcular o lado de um 
quadrado do qual se conhece a área. Al- 
gumas equações matemáticas têm núme- 
ros ao quadrado e raízes quadradas e, 
nesses casos, pode-se utilizar SQR para 
calcular o resultado no computador. 

O programa que apresentamos a se- 
guir usa uma equação para calcular o 
tempo de queda de um objeto (despre- 
zando-se a resistência do ar). Os físicos 
chamam essa situação de “corpo em 
queda livre no vácuo”. O programa 
também calcula a velocidade em que o 
objeto se encontra quando atinge o so- 
lo. Esses cálculos envolvem números ao 
quadrado e raízes quadradas porque 
qualquer objeto em queda e sob a in- 
fluência da gravidade cai cada vez mais 
rápido com o passar do tempo (despre- 
zando-se a resistência do ar). Na verda- 
de, estamos tratando com o quadrado 
do tempo. Mas, antes de maiores deta- 
lhes, vejamos o programa funcionando. 


tl 


104 CLS 

Z0 PRINT"Qual a altura da queda 
"2 INPUT D 

30 TE D<0O THEN 20 

40 T=SQR( (2*4D)/9.81) 

50 V=SQR(2*4D*9.B1) 

60 T=INT(T*100)/100 

70 V=INT(V*100)/100 

80 PRINT: PRINT"Tempo até chegar 
".PRINT"ao solo =";T;"segundos”" 

90 PRINT: PRINT"Velocidade máxim 
a": PRINT"de impacto =";V;“metro 
s por segundo” 

100 PRINT" (";)].6*INT(2.25*V+.5) 
"o Rm/h)" 

200 LOCATE 4,20: PRINT"Qualquer 
tecla para reinicio” 

210 IF INKEYS="" THEN 120 

2420 RUN 

LO HOME 

20 PRINT "QUAL A ALTURA DA QUE 

DA ";: INPUT D 

30 IF D<«< O THEN 20 

ao T SOR ((2 * D) / 9.81) 

50 SOR (2 * D * 9,81) 

60 INT (T * 100) / 100 

70 INT (VU * 100) / 100 

80 PRINT : PRINT "TEMPO ATE CH 

EGAR”: PRINT "AO SOLO = “;T;” 5 

EGUNDOS” 

90 PRINT : PRINT "VELOCIDADE M 

AXIMA”": PRINT "DE IMPACTO ";V;" 
METROS POR SEGUNDO” 

100 PRINT "(":1.6 * JINT (2.25 
XV + .5);” KM/B)" 

200 VTAB 20: PRINT "QUALQUER T 

ECLA PARA REINTCIO” 

210 GET AS: IF AS = "*"*” THEN 21 

0 
220 RUN 











10 CLS 

20 INPUT "INTRODUZA A DISTANC 
IA DA QUEDA (METROS)",D 

30 IF D<XO THEN GoTo 20 

40 LET T=S0R ((2*D)/9.81) 

50 LET V=SQR (2*D*9.81) 

60 LET T=INT (T*100)/100 

70 LET V=INT (V*100)/100 

B0 PRINT INVERSE 1''"TEMPO P 
ARA CHEGAR AO CHAO:"; INVERSE 

0'T;” SEGUNDOS" 

90 PRINT  INVERSE |'"VELOCIDA 
DE MAXIMA ATINGIDA:"; INVERSE 
0'V;" METROS POR SEGUNDO” 
100 PRINT "(";INT (2.254U+4.5); 
" MPB)" 

200 PRINT ''"PRESSIONE QUALQUE 
R TECLA PARA RECOMECAR" 

210 IF INKEYS="" THEN coTo 
210 
220 GoTo 10 


10 CLS 
20 INPUT "DIGITE A DISTANCIA DA 
QUEDA (EM METROS)”";D 


30 IF D<O THEN 10 

40 T=5QR((2*D)/9.81) 

50 V=50R(2*D*9.81) 

60 T=INT(T*100)/100 

70 V=INT(V*100)/100 

8B0 PRINT 697,"tempo para chegar 
ão chao:":PRINT T;"SEGUNDOS" 


90 PRINT €225,"velocidade maxim 


a alcancada:”":PRINT V;"METROS P 
OR SEGUNDO" 
100 PRINT ” 
MPH)" 

110 PRINT: PRINT" PRESSIONE QUALOQ 
UER TECLA PARA RECOMECAR”" 

120 IF INKEYS="" THEN 120 

130 GoTo 10 


(CF INT(Z.25"V+,5);" 


Em primeiro lugar, o computador 
limpa a tela e pergunta pela altura da 
qual o objeto vai cair. Caso você respon- 
da com um número negativo, a pergun- 
ta será feita novamente, pois não se po- 
de calcular raiz quadrada de um núme- 
ro negativo. 

Depois o computador calcula o tem- 
po que o objeto levará para chegar ao 
chão e a velocidade com que chega. Is- 
so é feito nas linhas 40 e 50. 

A equação usada na linha 40 é uma 
das versões da “equação de movimen- 
to” que, depois de rearranjada, tomou 
a forma: 


T = à/ (2*D)/a 


«onde T é o tempo necessário para per- 
correr determinada distância (nesse ca- 
so, para atingir o solo), D é a distância 
(fornecida por você) e a é a aceleração 
(mede o quanto a velocidade aumenta 


em cada segundo). 

No programa não há nenhuma variá- 
vel a, já que seu valor é constante: no 
lugar de a vemos, assim, 9.81. 

A linha 40 resolve a equação, indi- 
cando o tempo que o objeto leva para 
atingir o solo. 

A linha seguinte resolve uma equação 
semelhante, que calcula a velocidade 
do objeto no momento em que atinge o 
solo. 


U =*/ 24D*9.81 

Nessa equação, em vez de dividir, o 
computador multiplica o número 2*D 
pela aceleração. V significa, no caso, ve- 
locidade. e 

Em ambas as equações, o sinal v 
sobre o “2*D*9.81" ou ''2*D39.8]1" 
significa raiz quadrada de — é aqui, 
portanto, que usamos a raiz quadrada. 
Uma vez obtida a resposta para uma das 
equações, pode-se mudá-la de modo que 
o computador calcule a altura da qual 
o objeto foi jogado. 

De um modo geral, a equação se apli- 
ca a qualquer objeto em queda, seja ele 
um tijolo ou um foguete. O que pode 
mudar é o valor da aceleração. No nos- 
so exemplo, a aceleração deve-se à gravi- 
dade; por 1sso, a é ajustado para este va- 
lor. A gravidade tem uma aceleração de 
9.81 metros por segundo por segundo, 
Em outras palavras, para cada segundo 
na queda de um objeto sua velocidade 
aumenta de 9.81 metros por segundo. 
Metros por segundo por segundo tam- 
bém pode ser escrito como metros por se- 
gundo ao quadrado — e é aqui que a 
função potência entra em cena. 

As equações para esse cálculo tomam 
a seguinte forma: 


a*(t 2) 
D == 
2 

ou 


De Vitara) 


Tente modificar o programa de mo- 
do que ele calcule respostas para estas 
equações. Em vez de altura, poderiamos 
fornecer ao computador a velocidade 
com que desejamos que um objeto atin- 
ja o solo (para a segunda equação) ou 
o tempo que ele deve levar antes do im- 
pacto. Em ambos os casos, o computa- 
dor calcularia a altura necessária para 
satisfazer o dado fornecido. 

A capacidade de resolução de proble- 
mas desse tipo tem vários usos práticos. 
Na maioria deles, porém, as equações 
necessitam de um tratamento mais cui- 
dadoso, que leve em conta influências 
sobre o corpo em movimento. Alguns 





Por que recebo uma mensagem de er- 
ro quando tento calcular a raiz quadra- 
da de um número negativo? 

Os computadores não são capazes 
de calcular a raiz quadrada de um nú- 
mero negativo e, na verdade, isto não 
existe no universo dos reais (embora 
para certos propósitos se atribua um 
valor imaginário). 

Elevar um número ao quadrado sig- 
nifica multiplicá-lo por ele mesmo. Nú- 
meros positivos multiplicados entre si 
resultam num número positivo, mas o 
mesmo acontece com os negativos 
tnegativo vezes negativo resulta num 
número positivo). Não existe nenhum 
número real que, elevado ao quadrado, 
resulte num número negativo. E é cla- 
ro que o computador acusa erro quan- 
do lhe pedimos para fazer o impossível. 

Quando usamos SOR num progra- 
ma precisamos estar certos de que o 
número em questão será sempre posi- 
tivo. Caso haja a possibilidade de que 
apareçam números negativos (resulta- 
dos de cálculos anteriores, por exem- 
plo), aconselha-se o uso da função 
ABS. Essa função converte um núme- 
ro em seu valor absoluto, ou seja, reti- 
ra o sinal negativo, se houver. Para 
incluí-la num programa, substitua SOR 
(A) por SOR(ABS(A)), onde A repre- 
senta o número que está usando. 


exemplos de aplicação seriam o cálculo 
do desempenho de um carro em testes 
de frenagem e aceleração ou mesmo a 
reconstituição de um acidente automo- 
bilístico. Neste último caso, poderíamos 
precisar a velocidade em que se encon- 
trava o veículo no momento da batida. 
O cálculo é possivel, contanto que co- 
nheçamos os valores corretos para sa- 
tisfazer as equações. 

Por meio da função de potenciação 
pode-se calcular muitas outras coisas 
além do desempenho de um carro ou da 
área de uma casa. Ela permite determi- 
nar, por exemplo, o quanto uma árvo- 
re cresce, ou por que um pássaro do ta- 
manho de um elefante não pode levan- 
tar vôo. Num próximo artigo continua- 
remos a explorar o uso das funções ma- 
temáticas no computador, inclusive pa- 
ra a obtenção de efeitos gráficos. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





HERO E E a (E pas Sem ESA ro) a E 4% WU ERA e" 
EEE] o”””ooeooooo———————— 
PROGRAMAÇÃO BASIC 
Programas inteiramente corretos podem apresentar erros 
inesperados. Veja como evitá-los. 


PERIFERICOS 
Já existem sintetizadores de voz para a maioria dos micros 
domésticos. Conheça os principais tipos e seus efeitos. 


PROGRAMAÇÃO DE JOGOS 
Digite mais uma rotina para seu jogo de Vinte-e-um: ela 
lhe permitirá apostar e pedir mais cartas. 


PROGRAMAÇÃO BASIC 
Para evitar trabalho desnecessário, 
aprenda a combinar programas. 








CURSO PR 





